home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / USETOPPR.422 < prev    next >
Text File  |  1993-03-29  |  4KB  |  124 lines
  1. USETOPPR.MOD - Add Tolkien's TOPPER internally
  2. Shadowspawn #1 @13900
  3. Sat Mar 27 03:20:14 1993
  4.     MOD:  USETOPPR.MOD - Add Tolkien's TOPPER program to your BBS
  5. AFFECTS:  LILO.C
  6. VERSION:  WWIV v4.22+
  7.  AUTHOR:  ShadowSpawn  (1@13900 WWIVLink)(1@3900 WWIVnet)(1@3900 IceNet)
  8.    DATE:  27 March 93
  9.   LEVEL:  Novice (primarily block copying)
  10.  
  11. This mod allows you to incorporate Tolkien's TOPPER program as an internal part
  12. of your BBS.  Users with an AR of L set are given the option to bypass the
  13. TOPPER display.  Additionally, TOPPER runs *after* the user has logged off of
  14. the BBS, but before the BBS cleans up.  It's less annoying to your
  15. long-distance callers.
  16.  
  17. ** BONUS **
  18.  
  19. This mod includes a mini-mod that allows you to use the first Gfiles section as
  20. system bulletins (similar to the bulletins that other BBS software uses).
  21.  
  22.  
  23. 0.  Backup your source before attempting this mod.  Although it is a very
  24. simple step, the one time you don't will be the one time you really screw
  25. something up.
  26.  
  27. Key:
  28.  
  29. = Existing
  30. + Add this line
  31. - Delete this line
  32.  
  33. 1.      File: LILO.C
  34.     Function: void logon(void)
  35.  
  36. =   if (live_user)
  37. =     topscreen();
  38. +
  39. +   strcpy(s2,create_chain_file("CHAIN.TXT"));
  40. +
  41. +   i1=0;
  42. +   #define AR_L 2048   /* Not needed if you've installed ELRIC4.MOD */
  43. +   if (thisuser.ar & AR_L) {
  44. +     nl();
  45. +     prt(3,"Privileged Citizen of the Realm");
  46. +     nl();
  47. +     prt(6,"Skip logon sequence ? ");
  48. +     i1=(yn());
  49. +   }
  50. +
  51. +   if (i1) {
  52. +     prt(2,"View the System Bulletin Menu ? ");
  53. +     if (yn()) gfile_sec(0);
  54. +   } else {
  55. +     prt(2,"System Bulletins:");
  56. +     nl();
  57. +     gfile_sec(0);
  58. +   }
  59. +
  60. + /* Display Top Users (Topper) */
  61. +   i=0;
  62. +   if (thisuser.sysstatus & sysstatus_pause_on_page)
  63. +     i=1;
  64. +   else
  65. +     thisuser.sysstatus |= sysstatus_pause_on_page;
  66. +   if (i1) {
  67. +     prt(2,"View Top Users ? ");
  68. +     if (yn())
  69. +       printfile("TOPPER.MSG");
  70. +   } else {
  71. +     prt(2,"Top Users:");
  72. +     nl();
  73. +     printfile("TOPPER.MSG");
  74. +   }
  75. +   pausescr();
  76. +   if (!i)
  77. +     thisuser.sysstatus ^= sysstatus_pause_on_page;
  78. + /* End of Top Users */
  79. +
  80. =   if ((syscfg.logon_c[0]) && live_user) {
  81.  
  82. 2.      File: LILO.C
  83.     Function: void logon(void)
  84.  
  85. =   }
  86. =   save_status();
  87. -   create_chain_file("CHAIN.TXT");     /* Added above */
  88. = }
  89.  
  90.  
  91. 3.      File: LILO.C
  92.     Function: void logoff(void)
  93.  
  94. =   close_user();
  95. + 
  96. + /* Run TOPPER */
  97. +   shrink_out("TOPPER.EXE CHAIN.TXT -MAINT",0,0,1,1);
  98. +
  99. =   sprintf(s,get_stringx(1,23),msgreadlogon,
  100.  
  101. 4.  Recompile.
  102.  
  103. INFO:
  104.                                  TOPPER v1.03
  105.                            WWIV TopTen Users Utility
  106.                     Copyright (C) 1992-1993 by Jon R. Rickher
  107.                              All Rights Reserved
  108.  
  109. {═══════════════════════════════════════════════════════════════════════════}
  110. DESCRIPTION:
  111.  
  112. Topper is a small utility for WWIV BBS systems that creates a file containing
  113. the top ten users in a variety of categories. These categories include top
  114. ten file uploaders, file downloaders, uploaders and downloaders in kilobytes,
  115. posters, emailers, loggers-on, and the top ten people who've read messages.
  116. Those with a 255 security level are not included in the count.
  117.  
  118. {═══════════════════════════════════════════════════════════════════════════}
  119.  
  120. TOPPER is available (TOPRvvv.ZIP) at the following boards:
  121.  
  122. The Fellowship        314-644-5777  16.8K HST/V.32bis   @3456 WWIVnet
  123. Adventurer's Corner   309-452-2838  16.8K HST/V.32bis  @13900 WWIVLink
  124.